home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / misc / cpk / include / atoms_glass2.inc < prev    next >
Text File  |  1994-05-03  |  2KB  |  126 lines
  1. /*
  2.    Object and texture declarations for some stock Atoms, using VDW radii
  3.    These atoms are glass texture to allow one to see through surface
  4.    atoms.
  5.  
  6.    Author:
  7.     Eric G. Suchanek, Ph.D.
  8. */
  9.  
  10. /* Must include:
  11. #include "colors.inc"
  12. #include "shapes.inc"
  13. #include "textures.inc"
  14.   and either atoms_cpk.inc or atoms_covalent.inc...
  15. */
  16. #declare Atoms_Inc_Temp = version
  17.  
  18. #version 2.0
  19.  
  20. #declare my_glass_finish = finish {
  21.       ambient 0.1
  22.       diffuse 0.1
  23.       specular 0.8
  24.       reflection 0.1
  25.       refraction 0.9
  26.       ior 1.15
  27.       roughness 0.0003
  28.       phong 1 phong_size 400
  29. }
  30.  
  31. #declare Glass_N = 
  32.  texture
  33.    { pigment
  34.      { color Blue filter 0.98}
  35.      finish { my_glass_finish }
  36.    }
  37.  
  38. #declare Glass_C = 
  39.  texture
  40.    { pigment
  41.      { color Green filter 0.98}
  42.      finish { my_glass_finish }
  43.    }
  44.  
  45. #declare Glass_S = 
  46.  texture
  47.    { pigment
  48.      { color Yellow filter 0.98}
  49.      finish { my_glass_finish }
  50.    }
  51.  
  52. #declare Glass_Ca = 
  53.  texture
  54.    { pigment
  55.      { color DarkPurple filter 0.98}
  56.      finish { my_glass_finish }
  57.    }
  58.  
  59. #declare Glass_O = 
  60.  texture
  61.    { pigment
  62.      { color Red filter 0.98}
  63.      finish { my_glass_finish }
  64.    }
  65.  
  66. #declare Glass_H = 
  67.  texture
  68.    { pigment
  69.      { color VLightGrey filter 0.98}
  70.      finish { my_glass_finish }
  71.    }
  72.  
  73. #declare Glass_Fe = 
  74.  texture
  75.    { pigment
  76.      { color Gold filter 0.98}
  77.      finish { my_glass_finish }
  78.    }
  79.  
  80. #declare Clear_Atom = texture {
  81.    pigment { color red 1.0 green 1.0 blue 1.0 filter 0.98}
  82.    finish { my_glass_finish }
  83. }
  84.  
  85. #declare Atom_Glass_N = object {
  86.     sphere {<0.0, 0.0, 0.0> N_RAD }
  87.     texture { Glass_N }
  88. }
  89.  
  90. #declare Atom_Glass_C = object {
  91.     sphere {<0.0, 0.0, 0.0> C_RAD }
  92.     texture { Glass_C }
  93. }
  94.  
  95. #declare Atom_Glass_O = object {
  96.     sphere {<0.0, 0.0, 0.0> O_RAD }
  97.     texture { Glass_O }
  98. }
  99.  
  100. #declare Atom_Glass_S = object {
  101.     sphere {<0.0, 0.0, 0.0> S_RAD }
  102.     texture { Glass_S }
  103. }
  104.  
  105. #declare Atom_Glass_P = object {
  106.     sphere {<0.0, 0.0, 0.0> P_RAD }
  107.     texture { Glass_S }
  108. }
  109.  
  110. #declare Atom_Glass_Ca = object {
  111.     sphere {<0.0, 0.0, 0.0> CA_RAD }
  112.     texture { Glass_Ca }
  113.     pigment { color DarkPurple quick_color DarkPurple}
  114. }
  115.  
  116. #declare Atom_Glass_H = object {
  117.     sphere {<0.0, 0.0, 0.0> H_RAD }
  118.     texture { Glass_H }
  119. }
  120.  
  121. #declare Atom_Glass_Fe = object {
  122.     sphere {<0.0, 0.0, 0.0> FE_RAD }
  123.     texture { Glass_Fe }
  124. }
  125.  
  126.